Option Explicit
Sub H_Sample009()
    'ϥΦbH_Sample002s@XӪϪ
    Dim myCht      As Chart
    Dim mySht      As Worksheet
    Dim myImg      As OLEObject
    Dim myFileName As String
    Set mySht = ThisWorkbook.Worksheets(1)	'Ϫ
    Set myCht = mySht.ChartObjects(mySht.ChartObjects.Count).Chart
    myFileName = "myCht.gif"				'wɮצW
    On Error Resume Next				'RJsPWɮ
    Kill ThisWorkbook.Path & "\" & myFileName
    On Error GoTo 0
    'wɮ׮榡xs
    myCht.Export _
        Filename:=ThisWorkbook.Path & "\" & myFileName, Filtername:="gif"
    'ܦbvW
    Set myImg = mySht.OLEObjects.Add(ClassType:="Forms.Image.1")
    myImg.Object.Picture = LoadPicture(ThisWorkbook.Path & "\" & myFileName)
    myImg.Object.AutoSize = True
    Set myImg = Nothing					'
    Set mySht = Nothing
    Set myCht = Nothing
End Sub
